home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / data / dora102f / dorachat.plp < prev    next >
Text File  |  1993-07-08  |  3KB  |  64 lines
  1. /*    チャット等の自由行動の処理の定義の定義        */
  2. %retMAIN{type({\n});
  3.     loop({type({\n});
  4.     wait(Wtime2,{im({No})}
  5.     ,{,?,O},{im({Yes})}
  6.     ,{,H,nn,?,0},{type({0|Q\n});im({Yes})}
  7.     ,{,H,?,Q},{type({Q\n});im({Yes})}
  8.     ,{A,D,M,U,W,},{type({0\n});im({Yes})}
  9.     ,{quit},{type({0\n});im({Yes})}
  10.     ,{,H,?,0},{type({0\n});im({Yes})}
  11.     ,{,H,nn,?,0},{type({0\n});im({Yes})}
  12.     ,{,#,\,?,},{im({No})});
  13.     wait(Wtime2,{im({Yes})}
  14.         ,{,#,\,?,},{im({No})})
  15.             })};
  16. %retDORA{footnote({自由行動の終了処理中です});chat({No});dispoff({No});
  17.     var DAY1[10];      var DAY2[10];    DAY1:=@day;
  18.     case(@nochar(DAY1)={3},
  19.     {Yes},{DAY2:=@im({0}|DAY1)},
  20.     {No},{DAY2:=@im(DAY1)});
  21.           receive(LOG|{\}|NET|DAY2|{.LOG});footnote({自由行動を終了しました});
  22.     retMAIN};
  23. /************ 未削除のメールを全て読む ****************/
  24. %allMAIL{type({M\n});
  25.     wait(Wtime2,,{N,T,R,K,F,L,E,H,nn,?,0},{type({L\n})});
  26.     wait(Wtime2,,{>},{type({\n})})};
  27. %GOCHAT    {footnote({自由行動を開始します});wait(2);
  28.         footnote({終了ｺﾏﾝﾄMAILｽﾃﾀｽﾁｬｯﾄ}|
  29.              {ﾄｰｸ 端末//  LIB WHO }|
  30.              {＞},{b});
  31.         case    (LOGmode={forum},{Yes},{LOGforum({freelog},{start})});
  32.         chat({Yes});
  33.         loop    ({waitx(300);
  34.             case    (@xtype,
  35.                 {-2},{SNDMSG({jikan_f.snd});im({Yes})},
  36.     {101},{SNDMSG({erande_f.snd});
  37.     select    ({処理を選択して下さい},Wtime4,{retDORA;im({No})},
  38.     {  終    了  },{retDORA;im({No})},{  取    消  },{im({Yes})})},
  39.     {201},{SNDMSG({kaknin_f.snd});
  40.     select    ({確認して下さい},Wtime4,{retDORA;im({No})},
  41.     {  終    了  },{retDORA;im({No})},{  取    消  },{im({Yes})})},
  42.     {102},{SNDMSG({nyuryo_f.snd});
  43.     %tmp @input({行き先を指定して下さい},,{/go });
  44.     case(tmp<>{},{Yes},{type(tmp|{\n})});im({Yes})},
  45.     {202},{SNDMSG({nyuryo_f.snd});
  46.     %tmp @input({コマンドを入力して下さい},,{ });
  47.     case(tmp<>{},{Yes},{type(tmp|{\n})});im({Yes})},
  48.     {103},{allMAIL;im({Yes})},    {203},{allMAIL;im({Yes})},
  49.     {104},{type({#\n});im({Yes})},    {204},{type({#\n});im({Yes})},
  50.     {105},{type({C\n});im({Yes})},    {205},{type({C\n});im({Yes})},
  51.     {106},{type({T\n});im({Yes})},    {206},{type({T\n});im({Yes})},
  52.     {107},{type({I\n});im({Yes})},    {207},{type({I\n});im({Yes})},
  53.     {108},{type({//\n});im({Yes})},    {208},{type({//\n});im({Yes})},
  54.     {109},{type({F\n});im({Yes})},    {209},{type({F\n});im({Yes})},
  55.     {110},{type({W\n});im({Yes})},    {210},{type({W\n});im({Yes})},
  56.     {111},{type({＞\n});im({Yes})},    {211},{type({＞\n});im({Yes})},
  57.     {112},{SNDMSG({nyuryo_f.snd});
  58.     %tmp @input({ＩＤを指定して下さい},,{/prof });
  59.     case(tmp<>{},{Yes},{type(tmp|{\n})});im({Yes})},
  60.     {212},{SNDMSG({nyuryo_f.snd});
  61.     %tmp @input({ＩＤを指定して下さい},,{prof });
  62.     case(tmp<>{},{Yes},{type(tmp|{\n})});im({Yes});
  63.     })})};
  64. GOCHAT;